home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / localproceduralparameterdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  345 b   |  24 lines
  1. program LocalProceduralParameterDemo;
  2.  
  3. procedure CallProcedure (procedure Proc);
  4. begin
  5.   Proc
  6. end;
  7.  
  8. procedure MainProcedure;
  9. var LocalVariable : Integer;
  10.  
  11.   procedure LocalProcedure;
  12.   begin
  13.     WriteLn (LocalVariable)
  14.   end;
  15.  
  16. begin
  17.   LocalVariable := 42;
  18.   CallProcedure (LocalProcedure)
  19. end;
  20.  
  21. begin
  22.   MainProcedure
  23. end.
  24.